home *** CD-ROM | disk | FTP | other *** search
- ;* VRSTEST.ASM
- ;*
- ;* Some VRServer test routines
- ;*
- ;* PUBLIC DOMAIN by Petteri Kangaslampi 1994
- ;*
-
-
- IDEAL
- MODEL LARGE,C
-
-
-
-
-
- CODESEG
-
-
- PUBLIC PreVR, VR
-
-
- PROC PreVR FAR ; routine that is to be called
- ; _before_ the retrace
- mov dx,03DAh
- in al,dx
- mov dx,03C0h
- mov al,31h
- out dx,al ; set border color to 15 (white)
- mov al,15
- out dx,al
-
- ret
- ENDP
-
-
-
- PROC VR FAR ; routine to be called _in_ the
- ; retrace
- mov dx,03DAh
- in al,dx
- mov dx,03C0h
- mov al,31h
- out dx,al ; set border color to 0 (black)
- mov al,0
- out dx,al
-
- ret
- ENDP
-
-
-
- END
-